perm filename BUFDEC.SAI[PIC,HE] blob
sn#421673 filedate 1979-02-24 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 *************** DECLARATIONS ***************
C00003 ENDMK
Cā;
COMMENT *************** DECLARATIONS ***************;
REQUIRE "BAYSAI" SOURCE!FILE;
! SOME MACROS TO REPLACE OLD PROCEDURE DECLARATIONS AND CALLS;
REDEFINE BYTPNT(I,BUFNO)="INPTR(I,1,BUFNO)";
REDEFINE PIXPNT(I,J,BUFNO)="INPTR(I,J,BUFNO)";
COMMENT DEFINE THE BUFFER ROUTINES;
REQUIRE "PICBUF.DCL" SOURCE!FILE;
require "utils.dcl" source!file;
! I/O FOR THE DATA BASE;
REQUIRE "DATBAS.DCL" SOURCE!FILE;
simple external procedure limit(integer buffr; safe integer array pixels;
reference integer min,max,sum;
integer maskin,mask);